home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / wgdb-42.lha / wgdb-4.2 / readline / funmap.c < prev    next >
C/C++ Source or Header  |  1992-09-11  |  6KB  |  213 lines
  1. /* funmap.c -- attach names to functions. */
  2.  
  3. /* Copyright (C) 1988,1989 Free Software Foundation, Inc.
  4.  
  5.    This file is part of GNU Readline, a library for reading lines
  6.    of text with interactive input and history editing.
  7.  
  8.    Readline is free software; you can redistribute it and/or modify it
  9.    under the terms of the GNU General Public License as published by the
  10.    Free Software Foundation; either version 1, or (at your option) any
  11.    later version.
  12.  
  13.    Readline is distributed in the hope that it will be useful, but
  14.    WITHOUT ANY WARRANTY; without even the implied warranty of
  15.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16.    General Public License for more details.
  17.  
  18.    You should have received a copy of the GNU General Public License
  19.    along with Readline; see the file COPYING.  If not, write to the Free
  20.    Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
  21.  
  22. #define STATIC_MALLOC
  23. #ifndef STATIC_MALLOC
  24. extern char *xmalloc (), *xrealloc ();
  25. #else
  26. static char *xmalloc (), *xrealloc ();
  27. #endif
  28.  
  29. #ifndef FILE
  30. #include <stdio.h>
  31. #endif /* FILE */
  32.  
  33. #include "readline.h"
  34.  
  35. FUNMAP **funmap = (FUNMAP **)NULL;
  36. static int funmap_size = 0;
  37. static int funmap_entry = 0;
  38.  
  39. static FUNMAP default_funmap[] = {
  40.   { "beginning-of-line", rl_beg_of_line },
  41.   { "backward-char", rl_backward },
  42.   { "delete-char", rl_delete },
  43.   { "end-of-line", rl_end_of_line },
  44.   { "forward-char", rl_forward },
  45.   { "accept-line", rl_newline },
  46.   { "kill-line", rl_kill_line },
  47.   { "clear-screen", rl_clear_screen },
  48.   { "next-history", rl_get_next_history },
  49.   { "previous-history", rl_get_previous_history },
  50.   { "quoted-insert", rl_quoted_insert },
  51.   { "reverse-search-history", rl_reverse_search_history },
  52.   { "forward-search-history", rl_forward_search_history },
  53.   { "transpose-chars", rl_transpose_chars },
  54.   { "unix-line-discard", rl_unix_line_discard },
  55.   { "unix-word-rubout", rl_unix_word_rubout },
  56.   { "yank", rl_yank },
  57.   { "yank-pop", rl_yank_pop },
  58.   { "yank-nth-arg", rl_yank_nth_arg },
  59.   { "backward-delete-char", rl_rubout },
  60.   { "backward-word", rl_backward_word },
  61.   { "kill-word", rl_kill_word },
  62.   { "forward-word", rl_forward_word },
  63.   { "tab-insert", rl_tab_insert },
  64.   { "backward-kill-word", rl_backward_kill_word },
  65.   { "backward-kill-line", rl_backward_kill_line },
  66.   { "transpose-words", rl_transpose_words },
  67.   { "digit-argument", rl_digit_argument },
  68.   { "complete", rl_complete },
  69.   { "possible-completions", rl_possible_completions },
  70.   { "do-lowercase-version", rl_do_lowercase_version },
  71.   { "digit-argument", rl_digit_argument },
  72.   { "universal-argument", rl_universal_argument },
  73.   { "abort", rl_abort },
  74.   { "undo", rl_undo_command },
  75.   { "upcase-word", rl_upcase_word },
  76.   { "downcase-word", rl_downcase_word },
  77.   { "capitalize-word", rl_capitalize_word },
  78.   { "revert-line", rl_revert_line },
  79.   { "beginning-of-history", rl_beginning_of_history },
  80.   { "end-of-history", rl_end_of_history },
  81.   { "self-insert", rl_insert },
  82.   { "start-kbd-macro", rl_start_kbd_macro },
  83.   { "end-kbd-macro", rl_end_kbd_macro },
  84.   { "re-read-init-file", rl_re_read_init_file },
  85. #ifdef VI_MODE
  86.   { "vi-movement-mode", rl_vi_movement_mode },
  87.   { "vi-insertion-mode", rl_vi_insertion_mode },
  88.   { "vi-arg-digit", rl_vi_arg_digit },
  89.   { "vi-prev-word", rl_vi_prev_word },
  90.   { "vi-next-word", rl_vi_next_word },
  91.   { "vi-char-search", rl_vi_char_search },
  92.   { "vi-editing-mode", rl_vi_editing_mode },
  93.   { "vi-eof-maybe", rl_vi_eof_maybe },
  94.   { "vi-append-mode", rl_vi_append_mode },
  95.   { "vi-put", rl_vi_put },
  96.   { "vi-append-eol", rl_vi_append_eol },
  97.   { "vi-insert-beg", rl_vi_insert_beg },
  98.   { "vi-delete", rl_vi_delete },
  99.   { "vi-comment", rl_vi_comment },
  100.   { "vi-first-print", rl_vi_first_print },
  101.   { "vi-fword", rl_vi_fword },
  102.   { "vi-fWord", rl_vi_fWord },
  103.   { "vi-bword", rl_vi_bword },
  104.   { "vi-bWord", rl_vi_bWord },
  105.   { "vi-eword", rl_vi_eword },
  106.   { "vi-eWord", rl_vi_eWord },
  107.   { "vi-end-word", rl_vi_end_word },
  108.   { "vi-change-case", rl_vi_change_case },
  109.   { "vi-match", rl_vi_match },
  110.   { "vi-bracktype", rl_vi_bracktype },
  111.   { "vi-change-char", rl_vi_change_char },
  112.   { "vi-yank-arg", rl_vi_yank_arg },
  113.   { "vi-search", rl_vi_search },
  114.   { "vi-search-again", rl_vi_search_again },
  115.   { "vi-dosearch", rl_vi_dosearch },
  116.   { "vi-subst", rl_vi_subst },
  117.   { "vi-overstrike", rl_vi_overstrike },
  118.   { "vi-overstrike-delete", rl_vi_overstrike_delete },
  119.   { "vi-replace, ", rl_vi_replace },
  120.   { "vi-column", rl_vi_column },
  121.   { "vi-delete-to", rl_vi_delete_to },
  122.   { "vi-change-to", rl_vi_change_to },
  123.   { "vi-yank-to", rl_vi_yank_to },
  124.   { "vi-complete", rl_vi_complete },
  125. #endif /* VI_MODE */
  126.  
  127.  {(char *)NULL, (Function *)NULL }
  128. };
  129.  
  130. rl_add_funmap_entry (name, function)
  131.      char *name;
  132.      Function *function;
  133. {
  134.   if (funmap_entry + 2 >= funmap_size)
  135.     if (!funmap)
  136.       funmap = (FUNMAP **)xmalloc ((funmap_size = 80) * sizeof (FUNMAP *));
  137.     else
  138.       funmap =
  139.     (FUNMAP **)xrealloc (funmap, (funmap_size += 80) * sizeof (FUNMAP *));
  140.   
  141.   funmap[funmap_entry] = (FUNMAP *)xmalloc (sizeof (FUNMAP));
  142.   funmap[funmap_entry]->name = name;
  143.   funmap[funmap_entry]->function = function;
  144.  
  145.   funmap[++funmap_entry] = (FUNMAP *)NULL;
  146. }
  147.  
  148. static int funmap_initialized = 0;
  149.  
  150. /* Make the funmap contain all of the default entries. */
  151. rl_initialize_funmap ()
  152. {
  153.   register int i;
  154.  
  155.   if (funmap_initialized)
  156.     return;
  157.  
  158.   for (i = 0; default_funmap[i].name; i++)
  159.     rl_add_funmap_entry (default_funmap[i].name, default_funmap[i].function);
  160.  
  161.   funmap_initialized = 1;
  162. }
  163.  
  164. /* Things that mean `Control'. */
  165. char *possible_control_prefixes[] = {
  166.   "Control-", "C-", "CTRL-", (char *)NULL
  167. };
  168.  
  169. char *possible_meta_prefixes[] = {
  170.   "Meta", "M-", (char *)NULL
  171. };
  172.  
  173. #ifdef STATIC_MALLOC
  174.  
  175. /* **************************************************************** */
  176. /*                                    */
  177. /*            xmalloc and xrealloc ()                     */
  178. /*                                    */
  179. /* **************************************************************** */
  180.  
  181. static void memory_error_and_abort ();
  182.  
  183. static char *
  184. xmalloc (bytes)
  185.      int bytes;
  186. {
  187.   char *temp = (char *)malloc (bytes);
  188.  
  189.   if (!temp)
  190.     memory_error_and_abort ();
  191.   return (temp);
  192. }
  193.  
  194. static char *
  195. xrealloc (pointer, bytes)
  196.      char *pointer;
  197.      int bytes;
  198. {
  199.   char *temp = (char *)realloc (pointer, bytes);
  200.  
  201.   if (!temp)
  202.     memory_error_and_abort ();
  203.   return (temp);
  204. }
  205.  
  206. static void
  207. memory_error_and_abort ()
  208. {
  209.   fprintf (stderr, "history: Out of virtual memory!\n");
  210.   abort ();
  211. }
  212. #endif /* STATIC_MALLOC */
  213.